home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S18.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-04-14  |  768 b   |  39 lines
  1. 10  PRINT "MEAN, VARIANCE, STANDARD DEVIATION"
  2. 20  PRINT
  3. 30  PRINT "WHICH METHOD (0 = POPULATION, 1 = SAMPLE)";
  4. 40  INPUT S
  5. 50  PRINT "KIND OF DATA (0 = GROUPED, 1 = UNGROUPED)";
  6. 60  INPUT K
  7. 70  PRINT "NUMBER OF OBSERVATIONS";
  8. 80  INPUT N
  9. 90  R = 0
  10. 100  M = 0
  11. 110  P = 0
  12. 120  IF K = 1  THEN 230
  13. 130  FOR I = 1  TO N
  14. 140  PRINT "ITEM, FREQUENCY" ;I;
  15. 150  INPUT A,B
  16. 160  R = R + B * A
  17. 170  P = P + B
  18. 180  M = M + B * A ^ 2
  19. 190  NEXT I
  20. 200  R = R/P
  21. 210  V = (M-P * R ^ 2) / (P-S)
  22. 220  GOTO  310
  23. 230  FOR I = 1  TO N
  24. 240  PRINT "ITEM";I;
  25. 250  INPUT D
  26. 260  P = P+D
  27. 270  M = M + D ^ 2
  28. 280  NEXT I
  29. 290  R = P/N
  30. 300  V = (M-N * R ^ 2) / (N-S)
  31. 310  PRINT
  32. 320  PRINT "MEAN", "VARIANCE", "STANDARD DEVIATION"
  33. 330  PRINT R,V,SQR (V)
  34. 340  PRINT
  35. 350  PRINT "MORE DATA (1=YES, 0=NO)";
  36. 360  INPUT S
  37. 370  IF S=1  THEN 20
  38. 380  RUN "STAT"
  39.